home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / frmchess.frm < prev    next >
Text File  |  1999-06-05  |  25KB  |  753 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Object = "{5336AD54-C994-11D2-B7D6-444553540000}#11.0#0"; "HChessBoardP.ocx"
  5. Begin VB.Form frmChess 
  6.    AutoRedraw      =   -1  'True
  7.    BackColor       =   &H00FFFFFF&
  8.    BorderStyle     =   1  'Fixed Single
  9.    Caption         =   "Chess Board"
  10.    ClientHeight    =   7095
  11.    ClientLeft      =   45
  12.    ClientTop       =   375
  13.    ClientWidth     =   6930
  14.    Icon            =   "frmChess.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   473
  19.    ScaleMode       =   3  'Pixel
  20.    ScaleWidth      =   462
  21.    Begin VB.Timer Timer4 
  22.       Left            =   7440
  23.       Top             =   6360
  24.    End
  25.    Begin VB.Timer Timer3 
  26.       Left            =   7440
  27.       Top             =   5880
  28.    End
  29.    Begin VB.Timer Timer2 
  30.       Left            =   7440
  31.       Top             =   5400
  32.    End
  33.    Begin VB.Timer Timer1 
  34.       Left            =   7440
  35.       Top             =   4920
  36.    End
  37.    Begin MSWinsockLib.Winsock SockClient 
  38.       Left            =   7440
  39.       Top             =   4440
  40.       _ExtentX        =   741
  41.       _ExtentY        =   741
  42.    End
  43.    Begin PicClip.PictureClip PictureClip1 
  44.       Left            =   7440
  45.       Top             =   3960
  46.       _ExtentX        =   6985
  47.       _ExtentY        =   556
  48.       _Version        =   327680
  49.       Picture         =   "frmChess.frx":113A
  50.    End
  51.    Begin VB.PictureBox Picture1 
  52.       Appearance      =   0  'Flat
  53.       AutoSize        =   -1  'True
  54.       BackColor       =   &H80000005&
  55.       BorderStyle     =   0  'None
  56.       ForeColor       =   &H80000008&
  57.       Height          =   525
  58.       Left            =   315
  59.       Picture         =   "frmChess.frx":5284
  60.       ScaleHeight     =   525
  61.       ScaleWidth      =   6330
  62.       TabIndex        =   9
  63.       Top             =   480
  64.       Width           =   6330
  65.       Begin VB.Image Image1 
  66.          Height          =   255
  67.          Index           =   5
  68.          Left            =   5880
  69.          ToolTipText     =   "Help"
  70.          Top             =   120
  71.          Width           =   375
  72.       End
  73.       Begin VB.Image Image1 
  74.          Height          =   255
  75.          Index           =   4
  76.          Left            =   5160
  77.          ToolTipText     =   "Chat Window"
  78.          Top             =   120
  79.          Width           =   375
  80.       End
  81.       Begin VB.Image Image1 
  82.          Height          =   255
  83.          Index           =   3
  84.          Left            =   4680
  85.          ToolTipText     =   "Info Game Window"
  86.          Top             =   120
  87.          Width           =   375
  88.       End
  89.       Begin VB.Image Image1 
  90.          Height          =   255
  91.          Index           =   2
  92.          Left            =   3960
  93.          ToolTipText     =   "Music"
  94.          Top             =   120
  95.          Width           =   375
  96.       End
  97.       Begin VB.Image Image1 
  98.          Height          =   255
  99.          Index           =   1
  100.          Left            =   3480
  101.          ToolTipText     =   "No Sound"
  102.          Top             =   120
  103.          Width           =   375
  104.       End
  105.       Begin VB.Image Image1 
  106.          Height          =   255
  107.          Index           =   0
  108.          Left            =   120
  109.          ToolTipText     =   "New Game"
  110.          Top             =   120
  111.          Width           =   375
  112.       End
  113.    End
  114.    Begin HChessBoardP.HChessBoard HChessBoard1 
  115.       Height          =   6360
  116.       Left            =   300
  117.       TabIndex        =   11
  118.       Top             =   480
  119.       Width           =   6360
  120.       _ExtentX        =   11218
  121.       _ExtentY        =   11218
  122.       BoardPicture    =   "frmChess.frx":5FA4
  123.       PiecePicture    =   "frmChess.frx":6BF6
  124.       MouseIcon       =   "frmChess.frx":7848
  125.       DiffBoard_Y     =   11
  126.       DiffBoard_X     =   11
  127.       BoardWidth      =   424
  128.       BoardHeight     =   424
  129.    End
  130.    Begin VB.Label Label3 
  131.       BackStyle       =   0  'Transparent
  132.       Caption         =   "Guest Vs Opponent"
  133.       BeginProperty Font 
  134.          Name            =   "Lucida Sans"
  135.          Size            =   14.25
  136.          Charset         =   0
  137.          Weight          =   700
  138.          Underline       =   0   'False
  139.          Italic          =   -1  'True
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       ForeColor       =   &H80000002&
  143.       Height          =   330
  144.       Left            =   600
  145.       TabIndex        =   10
  146.       Top             =   75
  147.       Width           =   5295
  148.    End
  149.    Begin VB.Image Image2 
  150.       Height          =   330
  151.       Left            =   7560
  152.       Picture         =   "frmChess.frx":7B62
  153.       Top             =   3600
  154.       Width           =   300
  155.    End
  156.    Begin VB.Label Label2 
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "1"
  159.       BeginProperty Font 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   700
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   255
  169.       Index           =   7
  170.       Left            =   75
  171.       TabIndex        =   8
  172.       Top             =   6120
  173.       Width           =   135
  174.    End
  175.    Begin VB.Label Label2 
  176.       BackStyle       =   0  'Transparent
  177.       Caption         =   "2"
  178.       BeginProperty Font 
  179.          Name            =   "MS Sans Serif"
  180.          Size            =   8.25
  181.          Charset         =   0
  182.          Weight          =   700
  183.          Underline       =   0   'False
  184.          Italic          =   0   'False
  185.          Strikethrough   =   0   'False
  186.       EndProperty
  187.       Height          =   255
  188.       Index           =   6
  189.       Left            =   75
  190.       TabIndex        =   7
  191.       Top             =   5400
  192.       Width           =   135
  193.    End
  194.    Begin VB.Label Label2 
  195.       BackStyle       =   0  'Transparent
  196.       Caption         =   "3"
  197.       BeginProperty Font 
  198.          Name            =   "MS Sans Serif"
  199.          Size            =   8.25
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Height          =   255
  207.       Index           =   5
  208.       Left            =   75
  209.       TabIndex        =   6
  210.       Top             =   4680
  211.       Width           =   135
  212.    End
  213.    Begin VB.Label Label2 
  214.       BackStyle       =   0  'Transparent
  215.       Caption         =   "4"
  216.       BeginProperty Font 
  217.          Name            =   "MS Sans Serif"
  218.          Size            =   8.25
  219.          Charset         =   0
  220.          Weight          =   700
  221.          Underline       =   0   'False
  222.          Italic          =   0   'False
  223.          Strikethrough   =   0   'False
  224.       EndProperty
  225.       Height          =   255
  226.       Index           =   4
  227.       Left            =   75
  228.       TabIndex        =   5
  229.       Top             =   3960
  230.       Width           =   135
  231.    End
  232.    Begin VB.Label Label2 
  233.       BackStyle       =   0  'Transparent
  234.       Caption         =   "5"
  235.       BeginProperty Font 
  236.          Name            =   "MS Sans Serif"
  237.          Size            =   8.25
  238.          Charset         =   0
  239.          Weight          =   700
  240.          Underline       =   0   'False
  241.          Italic          =   0   'False
  242.          Strikethrough   =   0   'False
  243.       EndProperty
  244.       Height          =   255
  245.       Index           =   3
  246.       Left            =   75
  247.       TabIndex        =   4
  248.       Top             =   3120
  249.       Width           =   135
  250.    End
  251.    Begin VB.Label Label2 
  252.       BackStyle       =   0  'Transparent
  253.       Caption         =   "6"
  254.       BeginProperty Font 
  255.          Name            =   "MS Sans Serif"
  256.